home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / dev / e / makeefile.lha / MakeEFile_and_src / Examples / PModules / argarray / argint.asm < prev    next >
Encoding:
Assembly Source File  |  1994-04-19  |  481 b   |  26 lines
  1. *
  2. * argint.asm
  3. *
  4. * binary source for EPP Module argarray.e
  5. *
  6.     opt l-    ; non-linkable, keep other default optimisations
  7.  
  8.     include    asmsupp.i
  9.     include    workbench/icon_lib.i
  10.     include    dos/dos_lib.i
  11.  
  12. ArgInt    cargs    #0,ttypes.l,entry.l,defaultptr.l,iconbase.l,dosbase.l
  13.     move.l    (sp),d0
  14.     beq.s    default
  15.     movea.l    d0,a0
  16.     movea.l    entry(sp),a1
  17.     movea.l    iconbase(sp),a6
  18.     CALLSYS    FindToolType
  19.     move.l    d0,d1
  20.     beq.s    default
  21.     move.l    defaultptr(sp),d2
  22.     movea.l    dosbase(sp),a6
  23.     CALLSYS    StrToLong
  24. default
  25.  
  26.